https://oftob.com/ru/задачник-абрамян-решебник/while/801-while-17